home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / AOCE folder / OCEMail.lisp < prev    next >
Encoding:
Text File  |  1994-09-12  |  56.1 KB  |  1,660 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :TRAPS)             ; ***********************************************************
  3. ; 
  4. ; Created: Tuesday, August 17, 1993 4:37:24 PM
  5. ;  OCEMail.p
  6. ;  Pascal Interface to the Macintosh Libraries
  7. ; 
  8. ;   Copyright Apple Computer, Inc. 1990-1993
  9. ;   All rights reserved
  10. ; 
  11. ; ***********************************************************
  12.  
  13. ; $IFC UNDEFINED UsingIncludes
  14. ; $SETC UsingIncludes:= 0
  15. ; $ENDC
  16.  
  17. ; $IFC NOT UsingIncludes
  18.  
  19. ; $ENDC
  20.  
  21. ; $IFC UNDEFINED UsingOCEMail
  22. ; $SETC UsingOCEMail:= 1
  23.  
  24. ; $I+
  25. ; $SETC OCEMailIncludes:= UsingIncludes
  26. ; $SETC UsingIncludes:= 1
  27.  
  28. ; $IFC UNDEFINED UsingDigitalSignature
  29. ; $I DigitalSignature.p
  30. ; $ENDC
  31.  
  32. ; $IFC UNDEFINED UsingFiles
  33.  
  34. (require-interface 'FILES)      ; $I $$Shell(PInterfaces)Files.p
  35. ; $ENDC
  36.  
  37. ; $IFC UNDEFINED UsingMemory
  38.  
  39. (require-interface 'MEMORY)     ; $I $$Shell(PInterfaces)Memory.p
  40. ; $ENDC
  41.  
  42. ; $IFC UNDEFINED UsingOCE
  43. ; $I OCE.p
  44. ; $ENDC
  45.  
  46. ; $IFC UNDEFINED UsingOCEAuthDir
  47. ; $I OCEAuthDir.p
  48. ; $ENDC
  49.  
  50. ; $IFC UNDEFINED UsingOCEMessaging
  51. ; $I OCEMessaging.p
  52. ; $ENDC
  53.  
  54. ; $IFC UNDEFINED UsingTextEdit
  55.  
  56. (require-interface 'TEXTEDIT)   ; $I $$Shell(PInterfaces)TextEdit.p
  57. ; $ENDC
  58.  
  59. ; $IFC UNDEFINED UsingTypes
  60.  
  61. (require-interface 'TYPES)      ; $I $$Shell(PInterfaces)Types.p
  62. ; $ENDC
  63.  
  64. ; $SETC UsingIncludes:= OCEMailIncludes
  65.  
  66. ; ************************************************************************************
  67. ;  Common Definitions 
  68. ; ************************************************************************************
  69.  
  70. (defrecord MailParamBlockHeader 
  71.    (qLink :POINTER)
  72.    (reservedH1 :SIGNED-LONG)
  73.    (reservedH2 :SIGNED-LONG)
  74.    (ioCompletion :POINTER)
  75.    (ioResult :SIGNED-INTEGER)
  76.    (saveA5 :SIGNED-LONG)
  77.    (reqCode :SIGNED-INTEGER)
  78.    )
  79.  
  80. (def-mactype :MAILMSGREF (find-mactype :SIGNED-LONG));  reference to a new or open letter or message 
  81.  
  82. (def-mactype :MSAMQUEUEREF (find-mactype :SIGNED-LONG));  reference to an open msam queue 
  83. (def-mactype :MSAMSLOTID (find-mactype :SIGNED-INTEGER));  identifies slots managed by a PMSAM 
  84.  
  85. (def-mactype :MAILBOXREF (find-mactype :SIGNED-LONG));  reference to an active mailbox 
  86. (def-mactype :MAILSLOTID (find-mactype :SIGNED-INTEGER));  identifies slots within a mailbox 
  87.  
  88. (defrecord MailSeqNum           ;  identifies a letter in a mailbox 
  89.    (slotID :SIGNED-INTEGER)
  90.    (seqNum :SIGNED-LONG)
  91.    )
  92.  
  93. ;  A MailBuffer is used to describe a buffer used for an IO operation.
  94. ; The location of the buffer is pointed to by 'buffer'.
  95. ; When reading, the size of the buffer is 'bufferSize'
  96. ; and the size of data actually read is 'dataSize'.
  97. ; When writing, the size of data to be written is 'bufferSize'
  98. ; and the size of data actually written is 'dataSize'.
  99. ; 
  100.  
  101. (defrecord MailBuffer 
  102.    (bufferSize :SIGNED-LONG)
  103.    (buffer :POINTER)
  104.    (dataSize :SIGNED-LONG)
  105.    )
  106.  
  107. ;  A MailReply is used to describe a commonly used reply buffer format.
  108. ; It contains a count of tuples followed by an array of tuples.
  109. ; The format of the tuple itself depends on each particular call.
  110. ; 
  111. (defrecord MailReply 
  112.    (tupleCount :SIGNED-INTEGER)
  113. ;  tuple[1..tupleCount] 
  114.    )
  115.  
  116. ;  Shared Memory Communication Area used when Mail Manager sends
  117. ; High Level Events to a PMSAM.
  118. ; 
  119. (defrecord SMCA 
  120.    (smcaLength :SIGNED-INTEGER) ;  includes size of length field 
  121.    (result :SIGNED-INTEGER)
  122.    (userBytes :SIGNED-LONG)
  123.    (:variant 
  124.       ((slotCID :CREATIONID))   ;  may not be used in some cases 
  125.       ((msgHint :SIGNED-LONG))
  126.       ))
  127.  
  128. ; ************************************************************************************
  129.  
  130. ;  Value of creator and types fields for messages and blocks defined by MailManager 
  131. (defconstant $kMailAppleMailCreator :|apml|);  message and letter block creator 
  132.  
  133. (defconstant $kMailLtrMsgType :|lttr|);  msg type of letters, reports 
  134. (defconstant $kMailLtrHdrType :|lthd|);  contains letter header 
  135. (defconstant $kMailContentType :|body|);  contains content of letter 
  136. (defconstant $kMailEnclosureListType :|elst|);  contains list of enclosures 
  137. (defconstant $kMailEnclosureDesktopType :|edsk|);  contains desktop mgr info for enclosures 
  138.  
  139. (defconstant $kMailEnclosureFileType :|asgl|);  contains a file enclosure 
  140. ;  format is defined by AppleSingle 
  141.  
  142. (defconstant $kMailImageBodyType :|imag|);  contains image of letter 
  143. ;         format is struct TPfPgDir         - in Printing.h
  144. ;         TPfPgDir = RECORD
  145. ;             pageCount: INTEGER;            - number of pages in the image.
  146. ;             iPgPos: LONGINT[1..129];    - iPgPos[n] is the offset from the start of the block
  147. ;             END;
  148. ;                                         - to image of page n.
  149. ;                                         - iPgPos[n+1] - iPgPos[n] is the length of page n.
  150. ; 
  151.  
  152. (defconstant $kMailMSAMType :|gwyi|);  contains msam specific information 
  153.  
  154. (defconstant $kMailTunnelLtrType :|tunl|);  used to read a tunnelled message 
  155. (defconstant $kMailHopInfoType :|hopi|);  used to read hopInfo for a tunnelled message 
  156.  
  157. (defconstant $kMailReportType :|rpti|);  contains report info 
  158. ; 
  159. ; Reports have the isReport bit set in MailIndications and contain a block of type kMailReport.
  160. ; This block has a header, IPMReportBlockHeader,
  161. ; followed by an array of elements, each of type IPMRecipientReport
  162. ; 
  163.  
  164. ;  Various families used by mail or related msgs 
  165. (defconstant $kMailFamily :|mail|);  Defines family of "mail" msgs: content, header, etc 
  166. (defconstant $kMailFamilyFile :|file|);  Defines family of "direct display" msgs 
  167.  
  168. ; ************************************************************************************
  169.  
  170. (def-mactype :MAILATTRIBUTEID (find-mactype :SIGNED-INTEGER))
  171.  
  172. ;  Values of MailAttributeID 
  173. ;  Message store attributes - stored in the catalog 
  174. ;  Will always be present in a letter and have fixed sizes 
  175. (defconstant $kMailLetterFlagsBit 1);  MailLetterFlags 
  176.  
  177. ;  Letter attributes - stored in the letter 
  178. ;  Will always be present in a letter and have fixed sizes 
  179. (defconstant $kMailIndicationsBit 3);  MailIndications 
  180. (defconstant $kMailMsgTypeBit 4);  OCECreatorType 
  181. (defconstant $kMailLetterIDBit 5);  MailLetterID 
  182. (defconstant $kMailSendTimeStampBit 6);  MailTime 
  183. (defconstant $kMailNestingLevelBit 7);  MailNestingLevel 
  184. (defconstant $kMailMsgFamilyBit 8);  OSType 
  185.  
  186. ;  Letter attributes - stored in the letter 
  187. ;  May be present in a letter and have fixed sizes 
  188. (defconstant $kMailReplyIDBit 9);  MailLetterID 
  189. (defconstant $kMailConversationIDBit 10);  MailLetterID 
  190.  
  191. ;  Letter attributes - stored in the letter 
  192. ;  May be present in a letter and have variable length sizes 
  193. (defconstant $kMailSubjectBit 11);  RString 
  194. (defconstant $kMailFromBit 12)  ;  MailRecipient 
  195. (defconstant $kMailToBit 13)    ;  MailRecipient 
  196. (defconstant $kMailCcBit 14)    ;  MailRecipient 
  197. (defconstant $kMailBccBit 15)   ;  MailRecipient 
  198.  
  199. (def-mactype :MAILATTRIBUTEMASK (find-mactype :SIGNED-LONG))
  200.  
  201. ;  Values of MailAttributeMask 
  202. (defconstant $kMailLetterFlagsMask #X1); 1<<(kMailLetterFlagsBit-1)
  203. (defconstant $kMailIndicationsMask #X4); 1<<(kMailIndicationsBit-1)
  204. (defconstant $kMailMsgTypeMask #X8); 1<<(kMailMsgTypeBit-1)
  205. (defconstant $kMailLetterIDMask #X10); 1<<(kMailLetterIDBit-1)
  206. (defconstant $kMailSendTimeStampMask #X20); 1<<(kMailSendTimeStampBit-1)
  207. (defconstant $kMailNestingLevelMask #X40); 1<<(kMailNestingLevelBit-1)
  208. (defconstant $kMailMsgFamilyMask #X80); 1<<(kMailMsgFamilyBit-1)
  209. (defconstant $kMailReplyIDMask #X100); 1<<(kMailReplyIDBit-1)
  210. (defconstant $kMailConversationIDMask #X200); 1<<(kMailConversationIDBit-1)
  211. (defconstant $kMailSubjectMask #X400); 1<<(kMailSubjectBit-1)
  212. (defconstant $kMailFromMask #X800); 1<<(kMailFromBit-1)
  213. (defconstant $kMailToMask #X1000); 1<<(kMailToBit-1)
  214. (defconstant $kMailCcMask #X2000); 1<<(kMailCcBit-1)
  215. (defconstant $kMailBccMask #X4000); 1<<(kMailBccBit-1)
  216.  
  217. (defrecord MailAttributeBitmap 
  218.    (reservedA :UNSIGNED-INTEGER);  16 bits 
  219.    (reservedB :UNSIGNED-INTEGER)
  220.    (bcc :UNSIGNED-INTEGER)      ;  BOOLEAN 
  221.    (cc :UNSIGNED-INTEGER)       ;  BOOLEAN 
  222.    (toRecipient :UNSIGNED-INTEGER);  BOOLEAN 
  223.    (from :UNSIGNED-INTEGER)     ;  BOOLEAN 
  224.    (subject :UNSIGNED-INTEGER)  ;  BOOLEAN 
  225.    (conversationID :UNSIGNED-INTEGER);  BOOLEAN 
  226.    (replyID :UNSIGNED-INTEGER)  ;  BOOLEAN 
  227.    (msgFamily :UNSIGNED-INTEGER);  BOOLEAN 
  228.    (nestingLevel :UNSIGNED-INTEGER);  BOOLEAN 
  229.    (sendTimeStamp :UNSIGNED-INTEGER);  BOOLEAN 
  230.    (letterID :UNSIGNED-INTEGER) ;  BOOLEAN 
  231.    (msgType :UNSIGNED-INTEGER)  ;  BOOLEAN 
  232.    (indications :UNSIGNED-INTEGER);  BOOLEAN 
  233.    (reservedC :UNSIGNED-INTEGER);  BOOLEAN 
  234.    (letterFlags :UNSIGNED-INTEGER);  BOOLEAN 
  235.    )
  236.  
  237. ; ************************************************************************************
  238. (def-mactype :MAILLETTERSYSTEMFLAGS (find-mactype :SIGNED-INTEGER))
  239.  
  240. ;  Values of MailLetterSystemFlags 
  241. (defconstant $kMailIsLocalBit 2);  letter is available locally (either by nature or via cache) 
  242.  
  243. (defconstant $kMailIsLocalMask #X4); 1<<kMailIsLocalBit
  244.  
  245. (def-mactype :MAILLETTERUSERFLAGS (find-mactype :SIGNED-INTEGER))
  246.  
  247. (defconstant $kMailReadBit 0)   ;  this letter has been opened 
  248. (defconstant $kMailDontArchiveBit 1);  this letter is not 
  249. ;  to be archived either because 
  250. ;  it has already been archived or 
  251. ;  it should not be archived. 
  252. (defconstant $kMailInTrashBit 2);  this letter is in trash 
  253.  
  254. ;  Values of MailLetterUserFlags 
  255. (defconstant $kMailReadMask #X1); 1<<kMailReadBit
  256. (defconstant $kMailDontArchiveMask #X2); 1<<kMailDontArchiveBit
  257. (defconstant $kMailInTrashMask #X4); 1<<kMailInTrashBit
  258.  
  259. (defrecord MailLetterFlags 
  260.    (sysFlags :SIGNED-INTEGER)
  261.    (userFlags :SIGNED-INTEGER)
  262.    )
  263.  
  264. (defrecord MailMaskedLetterFlags 
  265.    (flagMask :MAILLETTERFLAGS)  ;  flags that are to be set 
  266.    (flagValues :MAILLETTERFLAGS);  and their values 
  267.    )
  268.  
  269. (defconstant $kMailOriginalInReportBit 1)
  270. (defconstant $kMailNonReceiptReportsBit 3)
  271. (defconstant $kMailReceiptReportsBit 4)
  272. (defconstant $kMailForwardedBit 5)
  273. (defconstant $kMailPriorityBit 6)
  274. (defconstant $kMailIsReportWithOriginalBit 8)
  275. (defconstant $kMailIsReportBit 9)
  276. (defconstant $kMailHasContentBit 10)
  277. (defconstant $kMailHasSignatureBit 11)
  278. (defconstant $kMailAuthenticatedBit 12)
  279. (defconstant $kMailSentBit 13)
  280.  
  281. ;  Values of MailIndications 
  282. (defconstant $kMailSentMask #X1000); 1<<(kMailSentBit-1)
  283. (defconstant $kMailAuthenticatedMask #X800); 1<<(kMailAuthenticatedBit-1)
  284. (defconstant $kMailHasSignatureMask #X400); 1<<(kMailHasSignatureBit-1)
  285. (defconstant $kMailHasContentMask #X200); 1<<(kMailHasContentBit-1)
  286. (defconstant $kMailIsReportMask #X100); 1<<(kMailIsReportBit-1)
  287. (defconstant $kMailIsReportWithOriginalMask #X80); 1<<(kMailIsReportWithOriginalBit-1)
  288. (defconstant $kMailPriorityMask #X60); 3<<(kMailPriorityBit-1)
  289. (defconstant $kMailForwardedMask #X10); 1<<(kMailForwardedBit-1)
  290. (defconstant $kMailReceiptReportsMask #X8); 1<<(kMailReceiptReportsBit-1)
  291. (defconstant $kMailNonReceiptReportsMask #X4); 1<<(kMailNonReceiptReportsBit-1)
  292. (defconstant $kMailOriginalInReportMask #X3); 3<<kMailOriginalInReportBit-1)
  293.  
  294. (defrecord MailIndications 
  295.    (reservedB :UNSIGNED-INTEGER);  16 bits 
  296.    (hasStandardContent :UNSIGNED-INTEGER);  this letter has standard interchange content 
  297.    (hasImageContent :UNSIGNED-INTEGER);  this letter has a standard image 
  298.    (hasNativeContent :UNSIGNED-INTEGER);  this letter has a main enclosure 
  299.    (sent :UNSIGNED-INTEGER)     ;  this letter was sent, not just composed 
  300.    (authenticated :UNSIGNED-INTEGER);  this letter was created and transported with authentication 
  301.    (hasSignature :UNSIGNED-INTEGER);  this letter was signed with a digital signature 
  302.    (hasContent :UNSIGNED-INTEGER);  this letter has content 
  303.    (isReport :UNSIGNED-INTEGER) ;  this letter is really a report 
  304.    (isReportWithOriginal :UNSIGNED-INTEGER);  this report contains the original letter 
  305.  
  306.    (priority :UNSIGNED-INTEGER) ;  Bits defined as in IPMPriority 
  307. ;  the originator has: 
  308.    (forwarded :UNSIGNED-INTEGER);         forwarded this letter 
  309.  
  310. ;  the originator requests: 
  311.    (receiptReports :UNSIGNED-INTEGER);         delivery reports 
  312.    (nonReceiptReports :UNSIGNED-INTEGER);         non-delivery reports 
  313.    (originalInReport :UNSIGNED-INTEGER);         original letter to be enclosed in reports 
  314.    )
  315.  
  316. ;  values of the field originalInReport in MailIndications 
  317. (defconstant $kMailNoOriginal 0);  do not enclose original in reports 
  318. (defconstant $kMailEncloseOnNonReceipt 3);  enclose original in non-delivery reports 
  319.  
  320. (def-mactype :MAILLETTERID (find-mactype :IPMMSGID))
  321.  
  322. (defrecord MailTime 
  323.    (time :SIGNED-LONG)          ;  current UTC(GMT) time 
  324.    (offset :SIGNED-LONG)        ;  offset from GMT 
  325.    )
  326.  
  327. (def-mactype :MAILNESTINGLEVEL (find-mactype :SIGNED-INTEGER));  innermost letter has nestingLevel 0 
  328.  
  329. (def-mactype :MAILRECIPIENT (find-mactype :OCERECIPIENT))
  330.  
  331. ; ************************************************************************************
  332.  
  333. (defconstant $kMailTextSegmentBit 0)
  334. (defconstant $kMailPictSegmentBit 1)
  335. (defconstant $kMailSoundSegmentBit 2)
  336. (defconstant $kMailStyledTextSegmentBit 3)
  337. (defconstant $kMailMovieSegmentBit 4)
  338.  
  339. (def-mactype :MAILSEGMENTMASK (find-mactype :SIGNED-INTEGER))
  340.  
  341. ;  Values of MailSegmentMask 
  342. (defconstant $kMailTextSegmentMask #X1); 1<<kMailTextSegmentBit
  343. (defconstant $kMailPictSegmentMask #X2); 1<<kMailPictSegmentBit
  344. (defconstant $kMailSoundSegmentMask #X4); 1<<kMailSoundSegmentBit
  345. (defconstant $kMailStyledTextSegmentMask #X8); 1<<kMailStyledTextSegmentBit
  346. (defconstant $kMailMovieSegmentMask #X10); 1<<kMailMovieSegmentBit
  347.  
  348. (def-mactype :MAILSEGMENTTYPE (find-mactype :SIGNED-INTEGER))
  349.  
  350. ;  Values of MailSegmentType 
  351. (defconstant $kMailInvalidSegmentType 0)
  352. (defconstant $kMailTextSegmentType 1)
  353. (defconstant $kMailPictSegmentType 2)
  354. (defconstant $kMailSoundSegmentType 3)
  355. (defconstant $kMailStyledTextSegmentType 4)
  356. (defconstant $kMailMovieSegmentType 5)
  357.  
  358. ; ************************************************************************************
  359. (defconstant $kMailErrorLogEntryVersion #X101)
  360. (defconstant $kMailMSAMErrorStringListID 128);  These 'STR#' resources should be 
  361. (defconstant $kMailMSAMActionStringListID 129);  in the PMSAM resource fork 
  362.  
  363. (def-mactype :MAILLOGERRORTYPE (find-mactype :SIGNED-INTEGER))
  364.  
  365. ;  Values of MailLogErrorType 
  366. (defconstant $kMailELECorrectable 0)
  367. (defconstant $kMailELEError 1)
  368. (defconstant $kMailELEWarning 2)
  369. (defconstant $kMailELEInformational 3)
  370.  
  371. (def-mactype :MAILLOGERRORCODE (find-mactype :SIGNED-INTEGER))
  372.  
  373. ;  Values of MailLogErrorCode 
  374. ;  positive codes are indices into 
  375. ;  PMSAM defined STRINGs 
  376. (defconstant $kMailMSAMErrorCode 0)
  377. (defconstant $kMailMiscError -1);  negative codes are OCE defined 
  378. (defconstant $kMailNoModem -2)  ;  modem required, but missing 
  379.  
  380. (defrecord MailErrorLogEntryInfo ;  < 128 bytes 
  381.    (version :SIGNED-INTEGER)
  382.    (timeOccurred :SIGNED-LONG)  ;  do not fill in 
  383.    (reportingPMSAM (:STRING 31));  do not fill in 
  384.    (reportingMSAMSlot (:STRING 31));  do not fill in 
  385.    (errorType :SIGNED-INTEGER)
  386.    (errorCode :SIGNED-INTEGER)
  387.    (errorResource :SIGNED-INTEGER);  resources are valid if 
  388.    (actionResource :SIGNED-INTEGER);  errorCode = kMailMSAMErrorCode 
  389. ;  index starts from 1 
  390.    (filler :SIGNED-LONG)
  391.    (filler2 :SIGNED-INTEGER)
  392.    )
  393.  
  394. ; ************************************************************************************
  395. (def-mactype :MAILBLOCKMODE (find-mactype :SIGNED-INTEGER))
  396.  
  397. ;  Values of MailBlockMode 
  398. (defconstant $kMailFromStart 1) ;  write data from offset calculated from 
  399. (defconstant $kMailFromLEOB 2)  ;  start of block, end of block, 
  400. (defconstant $kMailFromMark 3)  ;  or from the current mark 
  401.  
  402. (defrecord MailEnclosureInfo 
  403.    (enclosureName (:POINTER (:STRING 255)))
  404.    (catInfo :CINFOPBPTR)
  405.    (comment (:POINTER (:STRING 255)))
  406.    (icon :POINTER)
  407.    )
  408.  
  409. ; ************************************************************************************
  410.  
  411. (defconstant $kOCESetupLocationNone 0);  disconnect state 
  412. (defconstant $kOCESetupLocationMax 8);  maximum location value 
  413.  
  414. (def-mactype :OCESETUPLOCATION (find-mactype :UNSIGNED-BYTE))
  415.  
  416. ;  location state is a bitmask, 0x1=>1st location active, 
  417. ;   0x2 => 2nd, 0x4 => 3rd, etc.
  418. ; 
  419.  
  420. ; 
  421. ; #define MailLocationMask(locationNumber) (1<<((locationNumber)-1))
  422. ; 
  423.  
  424. (def-mactype :MAILLOCATIONFLAGS (find-mactype :UNSIGNED-BYTE))
  425.  
  426. (defrecord MailLocationInfo 
  427.  
  428. ; ERROR!! Record field LOCATION declared Non-PACKED BYTE !
  429.    (location :UNSIGNED-BYTE)
  430.  
  431. ; ERROR!! Record field ACTIVE declared Non-PACKED BYTE !
  432.    (active :UNSIGNED-BYTE)
  433.    )
  434.  
  435. ; ************************************************************************************
  436. ;  Definitions for Personal MSAMs 
  437. ; ************************************************************************************
  438.  
  439. (defconstant $kMailEPPCMsgVersion 3)
  440.  
  441. (defrecord MailEPPCMsg 
  442.    (version :SIGNED-INTEGER)
  443.    (:variant 
  444.       ((theSMCA (:POINTER :SMCA)));  for 'crsl', 'mdsl', 'dlsl', 'sndi', 'msgo', 'admn' 
  445.       ((sequenceNumber :SIGNED-LONG));  for 'inqu', 'dlom' 
  446.       ((locationInfo :MAILLOCATIONINFO));  for 'locc' 
  447.       ))
  448.  
  449. ;  Values of OCE defined High Level Event message classes 
  450. (defconstant $kMailEPPCCreateSlot :|crsl|)
  451. (defconstant $kMailEPPCModifySlot :|mdsl|)
  452. (defconstant $kMailEPPCDeleteSlot :|dlsl|)
  453. (defconstant $kMailEPPCShutDown :|quit|)
  454. (defconstant $kMailEPPCMailboxOpened :|mbop|)
  455. (defconstant $kMailEPPCMailboxClosed :|mbcl|)
  456. (defconstant $kMailEPPCMsgPending :|msgp|)
  457. (defconstant $kMailEPPCSendImmediate :|sndi|)
  458. (defconstant $kMailEPPCContinue :|cont|)
  459. (defconstant $kMailEPPCSchedule :|sked|)
  460. (defconstant $kMailEPPCAdmin :|admn|)
  461. (defconstant $kMailEPPCInQUpdate :|inqu|)
  462. (defconstant $kMailEPPCMsgOpened :|msgo|)
  463. (defconstant $kMailEPPCDeleteOutQMsg :|dlom|)
  464. (defconstant $kMailEPPCWakeup :|wkup|)
  465. (defconstant $kMailEPPCLocationChanged :|locc|)
  466.  
  467. (defrecord MailTimer 
  468.    (:variant 
  469.       ((frequency :SIGNED-LONG));  how often to connect (secs) 
  470.       ((connectTime :SIGNED-LONG));  time since midnight (secs) 
  471.       ))
  472.  
  473. (defconstant $kMailTimerOff 0)  ;  control is off 
  474. (defconstant $kMailTimerTime 1) ;  specifies connect time (relative to midnight) 
  475. (defconstant $kMailTimerFrequency 2);  specifies connect frequency 
  476.  
  477. (def-mactype :MAILTIMERKIND (find-mactype :UNSIGNED-BYTE))
  478.  
  479. (defrecord MailTimers 
  480.    (sendTimeKind :UNSIGNED-BYTE);  either kMailTimerTime or kMailTimerFrequency 
  481.    (receiveTimeKind :UNSIGNED-BYTE);  either kMailTimerTime or kMailTimerFrequency 
  482.    (send :MAILTIMER)
  483.    (receive :MAILTIMER)
  484.    )
  485.  
  486. (defrecord MailStandardSlotInfoAttribute 
  487.    (version :SIGNED-INTEGER)
  488.    (active :UNSIGNED-BYTE)      ;  active if MailLocationMask(i) is set 
  489.    (padByte :UNSIGNED-BYTE)
  490.    (sendReceiveTimer :MAILTIMERS)
  491.    )
  492.  
  493. (defrecord PMSAMGetMSAMRecordPB 
  494.    (qLink :POINTER)
  495.    (reservedH1 :SIGNED-LONG)
  496.    (reservedH2 :SIGNED-LONG)
  497.    (ioCompletion :POINTER)
  498.    (ioResult :SIGNED-INTEGER)
  499.    (saveA5 :SIGNED-LONG)
  500.    (reqCode :SIGNED-INTEGER)
  501.  
  502.    (msamCID :CREATIONID)
  503.    )
  504.  
  505. (defrecord PMSAMOpenQueuesPB 
  506.    (qLink :POINTER)
  507.    (reservedH1 :SIGNED-LONG)
  508.    (reservedH2 :SIGNED-LONG)
  509.    (ioCompletion :POINTER)
  510.    (ioResult :SIGNED-INTEGER)
  511.    (saveA5 :SIGNED-LONG)
  512.    (reqCode :SIGNED-INTEGER)
  513.  
  514.    (inQueueRef :SIGNED-LONG)
  515.    (outQueueRef :SIGNED-LONG)
  516.    (MSAMSlotID :SIGNED-INTEGER)
  517.    (filler (:ARRAY :SIGNED-LONG 2))
  518.    )
  519.  
  520. (def-mactype :PMSAMSTATUS (find-mactype :SIGNED-INTEGER))
  521.  
  522. ;  Values of PMSAMStatus 
  523. (defconstant $kPMSAMStatusPending 1);  for inQueue and outQueue 
  524. (defconstant $kPMSAMStatusError 2);  for inQueue and outQueue 
  525. (defconstant $kPMSAMStatusSending 3);  for outQueue only 
  526. (defconstant $kPMSAMStatusCaching 4);  for inQueue only 
  527. (defconstant $kPMSAMStatusSent 5);  for outQueue only 
  528.  
  529. (defrecord PMSAMSetStatusPB 
  530.    (qLink :POINTER)
  531.    (reservedH1 :SIGNED-LONG)
  532.    (reservedH2 :SIGNED-LONG)
  533.    (ioCompletion :POINTER)
  534.    (ioResult :SIGNED-INTEGER)
  535.    (saveA5 :SIGNED-LONG)
  536.    (reqCode :SIGNED-INTEGER)
  537.  
  538.    (queueRef :SIGNED-LONG)
  539.    (seqNum :SIGNED-LONG)
  540.    (msgHint :SIGNED-LONG)       ;  for posting cache error,set this to 0 when report outq status 
  541.    (status :SIGNED-INTEGER)
  542.    )
  543.  
  544. (defrecord PMSAMLogErrorPB 
  545.    (qLink :POINTER)
  546.    (reservedH1 :SIGNED-LONG)
  547.    (reservedH2 :SIGNED-LONG)
  548.    (ioCompletion :POINTER)
  549.    (ioResult :SIGNED-INTEGER)
  550.    (saveA5 :SIGNED-LONG)
  551.    (reqCode :SIGNED-INTEGER)
  552.  
  553.    (MSAMSlotID :SIGNED-INTEGER) ;  0 for PMSAM errors 
  554.    (logEntry (:POINTER :MAILERRORLOGENTRYINFO))
  555.    (filler (:ARRAY :SIGNED-LONG 2))
  556.    )
  557.  
  558. ; **************************************************************************************
  559.  
  560. (defconstant $kMailMsgSummaryVersion 1)
  561.  
  562. (defrecord MailMasterData 
  563.    (attrMask :MAILATTRIBUTEBITMAP);  indicates attributes present in MsgSummary 
  564.    (messageID :IPMMSGID)
  565.    (replyID :IPMMSGID)
  566.    (conversationID :IPMMSGID)
  567.    )
  568.  
  569. ;  Values for addressedToMe in MailCoreData record 
  570.  
  571. (defconstant $kAddressedAs_TO #X1)
  572. (defconstant $kAddressedAs_CC #X2)
  573. (defconstant $kAddressedAs_BCC #X4)
  574.  
  575. (defrecord MailCoreData 
  576.    (letterFlags :MAILLETTERFLAGS)
  577.    (messageSize :SIGNED-LONG)
  578.    (letterIndications :MAILINDICATIONS)
  579.    (messageType :OCECREATORTYPE)
  580.    (sendTime :MAILTIME)
  581.    (messageFamily :OSTYPE)
  582.  
  583. ; ERROR!! Record field RESERVED declared Non-PACKED BYTE !
  584.    (reserved :UNSIGNED-BYTE)
  585.  
  586. ; ERROR!! Record field ADDRESSEDTOME declared Non-PACKED BYTE !
  587.    (addressedToMe :UNSIGNED-BYTE)
  588.    (agentInfo (:ARRAY :UNSIGNED-BYTE (- 6 1 -1)));  6 bytes of special info [set to zero] 
  589. ;  these are variable length and even padded 
  590.    (sender :RSTRING32)          ;  recipient's entityName (trunc) 
  591.    (subject :RSTRING32)         ;  subject maybe truncated 
  592.    )
  593.  
  594. (defrecord MSAMMsgSummary 
  595.    (version :SIGNED-INTEGER)    ;  following flags are defaulted by Toolbox 
  596.    (msgDeleted :BOOLEAN)        ;  true if msg is to be deleted by PMSAM 
  597.    (msgUpdated :BOOLEAN)        ;  true if msgSummary was updated by MailManager 
  598.    (msgCached :BOOLEAN)         ;  true if msg is in the slot's InQueue 
  599. ; padByte: Byte;
  600.    (masterData :MAILMASTERDATA)
  601.    (coreData :MAILCOREDATA)
  602.    )
  603.  
  604. (defconstant $kMailMaxPMSAMMsgSummaryData 128);  PMSAM can put up to 128 bytes of private msg summary data 
  605.  
  606. (defrecord PMSAMCreateMsgSummaryPB 
  607.    (qLink :POINTER)
  608.    (reservedH1 :SIGNED-LONG)
  609.    (reservedH2 :SIGNED-LONG)
  610.    (ioCompletion :POINTER)
  611.    (ioResult :SIGNED-INTEGER)
  612.    (saveA5 :SIGNED-LONG)
  613.    (reqCode :SIGNED-INTEGER)
  614.  
  615.    (inQueueRef :SIGNED-LONG)
  616.    (seqNum :SIGNED-LONG)        ;  <- seq of the new message 
  617.    (msgSummary (:POINTER :MSAMMSGSUMMARY));  attributes and mask filled in 
  618.    (buffer (:POINTER :MAILBUFFER));  PMSAM specific data to be appended 
  619.    )
  620.  
  621. (defrecord PMSAMPutMsgSummaryPB 
  622.    (qLink :POINTER)
  623.    (reservedH1 :SIGNED-LONG)
  624.    (reservedH2 :SIGNED-LONG)
  625.    (ioCompletion :POINTER)
  626.    (ioResult :SIGNED-INTEGER)
  627.    (saveA5 :SIGNED-LONG)
  628.    (reqCode :SIGNED-INTEGER)
  629.  
  630.    (inQueueRef :SIGNED-LONG)
  631.    (seqNum :SIGNED-LONG)
  632.    (letterFlags (:POINTER :MAILMASKEDLETTERFLAGS));  if not nil, then set letterFlags 
  633.    (buffer (:POINTER :MAILBUFFER));  PMSAM specific data to be overwritten 
  634.    )
  635.  
  636. (defrecord PMSAMGetMsgSummaryPB 
  637.    (qLink :POINTER)
  638.    (reservedH1 :SIGNED-LONG)
  639.    (reservedH2 :SIGNED-LONG)
  640.    (ioCompletion :POINTER)
  641.    (ioResult :SIGNED-INTEGER)
  642.    (saveA5 :SIGNED-LONG)
  643.    (reqCode :SIGNED-INTEGER)
  644.  
  645.    (inQueueRef :SIGNED-LONG)
  646.    (seqNum :SIGNED-LONG)
  647.    (msgSummary (:POINTER :MSAMMSGSUMMARY));  if not nil, then read in the msgSummary 
  648.    (buffer (:POINTER :MAILBUFFER));  PMSAM specific data to be read 
  649.    (msgSummaryOffset :SIGNED-INTEGER);  offset of PMSAM specific data  
  650. ;  from start of MsgSummary 
  651.    )
  652.  
  653. ; **************************************************************************************
  654. ;  Definitions for Server MSAMs 
  655. ; ************************************************************************************
  656.  
  657. (def-mactype :SMSAMADMINCODE (find-mactype :SIGNED-INTEGER))
  658.  
  659. ;  Values of SMSAMAdminCode 
  660. (defconstant $kSMSAMNotifyFwdrSetupChange 1)
  661. (defconstant $kSMSAMNotifyFwdrNameChange 2)
  662. (defconstant $kSMSAMNotifyFwdrPwdChange 3)
  663. (defconstant $kSMSAMGetDynamicFwdrParams 4)
  664.  
  665. (def-mactype :SMSAMSLOTCHANGES (find-mactype :SIGNED-LONG))
  666.  
  667. (defconstant $kSMSAMFwdrHomeInternetChangedBit 0)
  668. (defconstant $kSMSAMFwdrConnectedToChangedBit 1)
  669. (defconstant $kSMSAMFwdrForeignRLIsChangedBit 2)
  670. (defconstant $kSMSAMFwdrMnMServerChangedBit 3)
  671.  
  672. ;  Values of SMSAMSlotChanges 
  673. (defconstant $kSMSAMFwdrEverythingChangedMask -1)
  674. (defconstant $kSMSAMFwdrHomeInternetChangedMask #X1); 1<<kSMSAMFwdrHomeInternetChangedBit
  675. (defconstant $kSMSAMFwdrConnectedToChangedMask #X2); 1<<kSMSAMFwdrConnectedToChangedBit
  676. (defconstant $kSMSAMFwdrForeignRLIsChangedMask #X4); 1<<kSMSAMFwdrForeignRLIsChangedBit
  677. (defconstant $kSMSAMFwdrMnMServerChangedMask #X8); 1<<kSMSAMFwdrMnMServerChangedBit
  678.  
  679. (defrecord SMSAMSetupChange     ;  kSMSAMNotifyFwdrSetupChange 
  680.    (whatChanged :SIGNED-LONG)   ;   --> bitmap of what parameters changed 
  681.    (serverHint :ADDRBLOCK)      ;   --> try this ADAP server first 
  682.    )
  683.  
  684. (defrecord SMSAMNameChange      ;  kSMSAMNotifyFwdrNameChange 
  685.    (newName :RSTRING)           ;   --> msams new name 
  686.    (serverHint :ADDRBLOCK)      ;   --> try this ADAP server first 
  687.    )
  688.  
  689. (defrecord SMSAMPasswordChange  ;  kSMSAMNotifyFwdrPasswordChange 
  690.    (newPassword :RSTRING)       ;   --> msams new password 
  691.    (serverHint :ADDRBLOCK)      ;   --> try this ADAP server first 
  692.    )
  693.  
  694. (defrecord SMSAMDynamicParams   ;  kSMSAMGetDynamicFwdrParams 
  695.    (curDiskUsed :SIGNED-LONG)   ;  <--  amount of disk space used by msam 
  696.    (curMemoryUsed :SIGNED-LONG) ;  <--  amount of memory used by msam 
  697.    )
  698.  
  699. (defrecord SMSAMAdminEPPCRequest 
  700.    (adminCode :SIGNED-INTEGER)
  701.    (:variant 
  702.       ((setupChange :SMSAMSETUPCHANGE))
  703.       ((nameChange :SMSAMNAMECHANGE))
  704.       ((passwordChange :SMSAMPASSWORDCHANGE))
  705.       ((dynamicParams :SMSAMDYNAMICPARAMS))
  706.       ))
  707.  
  708. (defrecord SMSAMSetupPB 
  709.    (qLink :POINTER)
  710.    (reservedH1 :SIGNED-LONG)
  711.    (reservedH2 :SIGNED-LONG)
  712.    (ioCompletion :POINTER)
  713.    (ioResult :SIGNED-INTEGER)
  714.    (saveA5 :SIGNED-LONG)
  715.    (reqCode :SIGNED-INTEGER)
  716.  
  717.    (serverMSAM (:POINTER :RECORDID))
  718.    (password (:POINTER :RSTRING))
  719.    (gatewayType :OSTYPE)
  720.    (gatewayTypeDescription (:POINTER :RSTRING))
  721.    (catalogServerHint :ADDRBLOCK)
  722.    )
  723.  
  724. (defrecord SMSAMStartupPB 
  725.    (qLink :POINTER)
  726.    (reservedH1 :SIGNED-LONG)
  727.    (reservedH2 :SIGNED-LONG)
  728.    (ioCompletion :POINTER)
  729.    (ioResult :SIGNED-INTEGER)
  730.    (saveA5 :SIGNED-LONG)
  731.    (reqCode :SIGNED-INTEGER)
  732.  
  733.    (msamIdentity :SIGNED-LONG)
  734.    (queueRef :SIGNED-LONG)
  735.    )
  736.  
  737. (defrecord SMSAMShutdownPB 
  738.    (qLink :POINTER)
  739.    (reservedH1 :SIGNED-LONG)
  740.    (reservedH2 :SIGNED-LONG)
  741.    (ioCompletion :POINTER)
  742.    (ioResult :SIGNED-INTEGER)
  743.    (saveA5 :SIGNED-LONG)
  744.    (reqCode :SIGNED-INTEGER)
  745.  
  746.    (queueRef :SIGNED-LONG)
  747.    )
  748.  
  749. ; **************************************************************************************
  750. ;  Definitions for reading and writing MSAM Letters 
  751. ; **************************************************************************************
  752.  
  753. (defrecord MSAMEnumeratePB 
  754.    (qLink :POINTER)
  755.    (reservedH1 :SIGNED-LONG)
  756.    (reservedH2 :SIGNED-LONG)
  757.    (ioCompletion :POINTER)
  758.    (ioResult :SIGNED-INTEGER)
  759.    (saveA5 :SIGNED-LONG)
  760.    (reqCode :SIGNED-INTEGER)
  761.  
  762.    (queueRef :SIGNED-LONG)
  763.    (startSeqNum :SIGNED-LONG)
  764.    (nextSeqNum :SIGNED-LONG)
  765.    (buffer :MAILBUFFER)
  766. ;  buffer contains a Mail Reply. Each tuple is a
  767. ;         MSAMEnumerateInQReply when enumerating the inQueue
  768. ;         MSAMEnumerateOutQReply when enumerating the outQueue
  769. ;     
  770.    )
  771.  
  772. (defrecord MSAMEnumerateInQReply 
  773.    (seqNum :SIGNED-LONG)
  774.    (msgDeleted :BOOLEAN)        ;  true if msg is to be deleted by PMSAM 
  775.    (msgUpdated :BOOLEAN)        ;  true if MsgSummary has been updated by TB 
  776.    (msgCached :BOOLEAN)         ;  true if msg is in the incoming queue 
  777. ; padByte: Byte;
  778.    )
  779.  
  780. (defrecord MSAMEnumerateOutQReply 
  781.    (seqNum :SIGNED-LONG)
  782.  
  783. ; ERROR!! Record field DONE declared PACKED BOOLEAN !
  784.    (done :BOOLEAN)              ;  true if all responsible recipients have been processed 
  785.    (priority :IPMPRIORITY)
  786.    (approxSize :SIGNED-LONG)
  787.  
  788. ; ERROR!! Record field TUNNELFORM declared PACKED BOOLEAN !
  789.    (tunnelForm :BOOLEAN)        ;  true if this letter has to be tunnelled 
  790.    (padByte :UNSIGNED-BYTE)
  791.    (nextHop :NETWORKSPEC)       ;  valid if tunnelForm is true 
  792.    (msgType :OCECREATORTYPE)    ;  valid if tunnelForm is true 
  793.    )
  794.  
  795. (defrecord MSAMDeletePB 
  796.    (qLink :POINTER)
  797.    (reservedH1 :SIGNED-LONG)
  798.    (reservedH2 :SIGNED-LONG)
  799.    (ioCompletion :POINTER)
  800.    (ioResult :SIGNED-INTEGER)
  801.    (saveA5 :SIGNED-LONG)
  802.    (reqCode :SIGNED-INTEGER)
  803.  
  804.    (queueRef :SIGNED-LONG)
  805.    (seqNum :SIGNED-LONG)
  806.  
  807. ; ERROR!! Record field MSGONLY declared PACKED BOOLEAN !
  808.    (msgOnly :BOOLEAN)           ;  only valid for PMSAM & inQueue 
  809. ;  set true to delete message but not msgSummary 
  810.    (padByte :UNSIGNED-BYTE)
  811.    (result :SIGNED-INTEGER)     ;  only valid for SMSAM & tunnelled messages 
  812. ;  Values for result:
  813. ;                                             kIPMNoResponsibility
  814. ;                                             kIPMNoInformation
  815. ;                                             kIPMRecMaybeNotSent
  816. ;                                             kIPMRecMaybeSent
  817. ;                                             
  818.    )
  819.  
  820. (defrecord MSAMOpenPB 
  821.    (qLink :POINTER)
  822.    (reservedH1 :SIGNED-LONG)
  823.    (reservedH2 :SIGNED-LONG)
  824.    (ioCompletion :POINTER)
  825.    (ioResult :SIGNED-INTEGER)
  826.    (saveA5 :SIGNED-LONG)
  827.    (reqCode :SIGNED-INTEGER)
  828.  
  829.    (queueRef :SIGNED-LONG)
  830.    (seqNum :SIGNED-LONG)
  831.    (MailMsgRef :SIGNED-LONG)
  832.    )
  833.  
  834. (defrecord MSAMOpenNestedPB 
  835.    (qLink :POINTER)
  836.    (reservedH1 :SIGNED-LONG)
  837.    (reservedH2 :SIGNED-LONG)
  838.    (ioCompletion :POINTER)
  839.    (ioResult :SIGNED-INTEGER)
  840.    (saveA5 :SIGNED-LONG)
  841.    (reqCode :SIGNED-INTEGER)
  842.  
  843.    (MailMsgRef :SIGNED-LONG)
  844.    (nestedRef :SIGNED-LONG)
  845.    )
  846.  
  847. (defrecord MSAMClosePB 
  848.    (qLink :POINTER)
  849.    (reservedH1 :SIGNED-LONG)
  850.    (reservedH2 :SIGNED-LONG)
  851.    (ioCompletion :POINTER)
  852.    (ioResult :SIGNED-INTEGER)
  853.    (saveA5 :SIGNED-LONG)
  854.    (reqCode :SIGNED-INTEGER)
  855.  
  856.    (MailMsgRef :SIGNED-LONG)
  857.    )
  858.  
  859. (defrecord MSAMGetMsgHeaderPB 
  860.    (qLink :POINTER)
  861.    (reservedH1 :SIGNED-LONG)
  862.    (reservedH2 :SIGNED-LONG)
  863.    (ioCompletion :POINTER)
  864.    (ioResult :SIGNED-INTEGER)
  865.    (saveA5 :SIGNED-LONG)
  866.    (reqCode :SIGNED-INTEGER)
  867.  
  868.    (MailMsgRef :SIGNED-LONG)
  869.    (selector :IPMHEADERSELECTOR)
  870.    (offset :SIGNED-LONG)
  871.    (buffer :MAILBUFFER)
  872.    (remaining :SIGNED-LONG)
  873.    )
  874.  
  875. (defrecord MSAMGetAttributesPB 
  876.    (qLink :POINTER)
  877.    (reservedH1 :SIGNED-LONG)
  878.    (reservedH2 :SIGNED-LONG)
  879.    (ioCompletion :POINTER)
  880.    (ioResult :SIGNED-INTEGER)
  881.    (saveA5 :SIGNED-LONG)
  882.    (reqCode :SIGNED-INTEGER)
  883.  
  884.    (MailMsgRef :SIGNED-LONG)
  885.    (requestMask :MAILATTRIBUTEBITMAP);  kMailIndicationsBit thru kMailSubjectBit 
  886.    (buffer :MAILBUFFER)
  887. ;     buffer returned will contain the attribute values of
  888. ;         the attributes indicated in responseMask,
  889. ;         from the attribute indicated by the least significant bit set
  890. ;         to the attribute indicated by the most significant bit set.
  891. ;         Note that recipients - from, to, cc, bcc cannot be read using
  892. ;         this call. Use GetRecipients to read these.
  893. ;     
  894.    (responseMask :MAILATTRIBUTEBITMAP)
  895.    (more :BOOLEAN)
  896.    )
  897.  
  898. (defconstant $kMailResolvedList 0);  attrID value to get resolved recipient list 
  899.  
  900. (defrecord MailOriginalRecipient 
  901.    (index :SIGNED-INTEGER)
  902. ;  Followed by OCEPackedRecipient 
  903.    )
  904.  
  905. (defrecord MailResolvedRecipient 
  906.    (index :SIGNED-INTEGER)
  907.    (recipientFlags :SIGNED-INTEGER)
  908.  
  909. ; ERROR!! Record field RESPONSIBLE declared PACKED BOOLEAN !
  910.    (responsible :BOOLEAN)
  911.    (padByte :UNSIGNED-BYTE)
  912. ;  Followed by OCEPackedRecipient 
  913.    )
  914.  
  915. (defrecord MSAMGetRecipientsPB 
  916.    (qLink :POINTER)
  917.    (reservedH1 :SIGNED-LONG)
  918.    (reservedH2 :SIGNED-LONG)
  919.    (ioCompletion :POINTER)
  920.    (ioResult :SIGNED-INTEGER)
  921.    (saveA5 :SIGNED-LONG)
  922.    (reqCode :SIGNED-INTEGER)
  923.  
  924.    (MailMsgRef :SIGNED-LONG)
  925.    (attrID :SIGNED-INTEGER)     ;  kMailFromBit thru kMailBccBit 
  926.    (startIndex :SIGNED-INTEGER) ;  starts at 1 
  927.    (buffer :MAILBUFFER)
  928. ;      buffer contains a Mail Reply. Each tuple is a
  929. ;         MailOriginalRecipient if getting original recipients
  930. ;                                 ie the attrID is kMail[From, To, Cc, Bcc]Bit
  931. ;         MailResolvedRecipient if getting resolved reicpients
  932. ;                                 ie the attrID is kMailResolvedList
  933. ;         Both tuples are word alligned.
  934. ;     
  935.    (nextIndex :SIGNED-INTEGER)
  936.    (more :BOOLEAN)
  937.    )
  938.  
  939. (defrecord MSAMGetContentPB 
  940.    (qLink :POINTER)
  941.    (reservedH1 :SIGNED-LONG)
  942.    (reservedH2 :SIGNED-LONG)
  943.    (ioCompletion :POINTER)
  944.    (ioResult :SIGNED-INTEGER)
  945.    (saveA5 :SIGNED-LONG)
  946.    (reqCode :SIGNED-INTEGER)
  947.  
  948.    (MailMsgRef :SIGNED-LONG)
  949.    (segmentMask :SIGNED-INTEGER)
  950.    (buffer :MAILBUFFER)
  951.    (textScrap (:POINTER :STSCRPREC))
  952.    (script :SIGNED-INTEGER)
  953.    (segmentType :SIGNED-INTEGER)
  954.    (endOfScript :BOOLEAN)
  955.    (endOfSegment :BOOLEAN)
  956.    (endOfContent :BOOLEAN)
  957.    (segmentLength :SIGNED-LONG) ;  NEW: <-  valid first call in a segment 
  958.    (segmentID :SIGNED-LONG)     ;  NEW: <-> identifier for this segment 
  959.    )
  960.  
  961. (defrecord MSAMGetEnclosurePB 
  962.    (qLink :POINTER)
  963.    (reservedH1 :SIGNED-LONG)
  964.    (reservedH2 :SIGNED-LONG)
  965.    (ioCompletion :POINTER)
  966.    (ioResult :SIGNED-INTEGER)
  967.    (saveA5 :SIGNED-LONG)
  968.    (reqCode :SIGNED-INTEGER)
  969.  
  970.    (MailMsgRef :SIGNED-LONG)
  971.  
  972. ; ERROR!! Record field CONTENTENCLOSURE declared PACKED BOOLEAN !
  973.    (contentEnclosure :BOOLEAN)
  974.    (padByte :UNSIGNED-BYTE)
  975.    (buffer :MAILBUFFER)
  976.  
  977. ; ERROR!! Record field ENDOFFILE declared PACKED BOOLEAN !
  978.    (endOfFile :BOOLEAN)
  979.  
  980. ; ERROR!! Record field ENDOFENCLOSURES declared PACKED BOOLEAN !
  981.    (endOfEnclosures :BOOLEAN)
  982.    )
  983.  
  984. (defrecord MailBlockInfo 
  985.    (blockType :OCECREATORTYPE)
  986.    (offset :SIGNED-LONG)
  987.    (blockLength :SIGNED-LONG)
  988.    )
  989.  
  990. (defrecord MSAMEnumerateBlocksPB 
  991.    (qLink :POINTER)
  992.    (reservedH1 :SIGNED-LONG)
  993.    (reservedH2 :SIGNED-LONG)
  994.    (ioCompletion :POINTER)
  995.    (ioResult :SIGNED-INTEGER)
  996.    (saveA5 :SIGNED-LONG)
  997.    (reqCode :SIGNED-INTEGER)
  998.  
  999.    (MailMsgRef :SIGNED-LONG)
  1000.    (startIndex :SIGNED-INTEGER) ;  starts at 1 
  1001.    (buffer :MAILBUFFER)
  1002. ;      buffer contains a Mail Reply. Each tuple is a MailBlockInfo 
  1003.    (nextIndex :SIGNED-INTEGER)
  1004.    (more :BOOLEAN)
  1005.    )
  1006.  
  1007. (defrecord MSAMGetBlockPB 
  1008.    (qLink :POINTER)
  1009.    (reservedH1 :SIGNED-LONG)
  1010.    (reservedH2 :SIGNED-LONG)
  1011.    (ioCompletion :POINTER)
  1012.    (ioResult :SIGNED-INTEGER)
  1013.    (saveA5 :SIGNED-LONG)
  1014.    (reqCode :SIGNED-INTEGER)
  1015.  
  1016.    (MailMsgRef :SIGNED-LONG)
  1017.    (blockType :OCECREATORTYPE)
  1018.    (blockIndex :SIGNED-INTEGER)
  1019.    (buffer :MAILBUFFER)
  1020.    (dataOffset :SIGNED-LONG)
  1021.  
  1022. ; ERROR!! Record field ENDOFBLOCK declared PACKED BOOLEAN !
  1023.    (endOfBlock :BOOLEAN)
  1024.    (padByte :UNSIGNED-BYTE)
  1025.    (remaining :SIGNED-LONG)
  1026.    )
  1027.  
  1028. ;  YOU SHOULD BE USING THE NEW FORM OF MARK RECIPIENTS
  1029. ;   THIS VERSION IS MUCH SLOWER AND KEPT FOR COMPATIBILITY
  1030. ;   REASONS.
  1031. ; 
  1032.  
  1033. (defrecord MSAMMarkRecipientsPB ;  not valid for tunnel form letters 
  1034.    (qLink :POINTER)
  1035.    (reservedH1 :SIGNED-LONG)
  1036.    (reservedH2 :SIGNED-LONG)
  1037.    (ioCompletion :POINTER)
  1038.    (ioResult :SIGNED-INTEGER)
  1039.    (saveA5 :SIGNED-LONG)
  1040.    (reqCode :SIGNED-INTEGER)
  1041.  
  1042.    (queueRef :SIGNED-LONG)
  1043.    (seqNum :SIGNED-LONG)
  1044.    (buffer :MAILBUFFER)
  1045. ;      buffer contains a Mail Reply. Each tuple is an unsigned short,
  1046. ;         the index of a recipient to be marked. 
  1047.    )
  1048.  
  1049. ; 
  1050. ;   same as MSAMMarkRecipients except it takes a mailMsgRef instead of 
  1051. ;   queueRef, seqNum 
  1052. ; 
  1053.  
  1054. (defrecord MSAMnMarkRecipientsPB ;  not valid for tunnel form letters 
  1055.    (qLink :POINTER)
  1056.    (reservedH1 :SIGNED-LONG)
  1057.    (reservedH2 :SIGNED-LONG)
  1058.    (ioCompletion :POINTER)
  1059.    (ioResult :SIGNED-INTEGER)
  1060.    (saveA5 :SIGNED-LONG)
  1061.    (reqCode :SIGNED-INTEGER)
  1062.  
  1063.    (MailMsgRef :SIGNED-LONG)
  1064.    (buffer :MAILBUFFER)
  1065. ;      buffer contains a Mail Reply. Each tuple is an unsigned short,
  1066. ;         the index of a recipient to be marked. 
  1067.    )
  1068.  
  1069. ; **************************************************************************************
  1070. (defrecord MSAMCreatePB 
  1071.    (qLink :POINTER)
  1072.    (reservedH1 :SIGNED-LONG)
  1073.    (reservedH2 :SIGNED-LONG)
  1074.    (ioCompletion :POINTER)
  1075.    (ioResult :SIGNED-INTEGER)
  1076.    (saveA5 :SIGNED-LONG)
  1077.    (reqCode :SIGNED-INTEGER)
  1078.  
  1079.    (queueRef :SIGNED-LONG)
  1080.    (asLetter :BOOLEAN)          ;  indicate if we should create as letter or msg 
  1081.    (msgType :IPMMSGTYPE)        ;  is msg creator/type if msg, mail type creator o.w. 
  1082. ;  default for mail should be: kMailAppleMailCreator, 
  1083. ;  kMailLtrMsgType 
  1084. ;  OLD: type lttr indicates create letter 
  1085.    (refCon :SIGNED-LONG)        ;  for messages only 
  1086.    (seqNum :SIGNED-LONG)        ;  set if creating message in the inQueue 
  1087.    (tunnelForm :BOOLEAN)        ;  if true tunnelForm else newForm 
  1088.    (bccRecipients :BOOLEAN)     ;  true if creating letter with bcc recipients 
  1089.    (newRef :SIGNED-LONG)
  1090.    )
  1091.  
  1092. (defrecord MSAMBeginNestedPB 
  1093.    (qLink :POINTER)
  1094.    (reservedH1 :SIGNED-LONG)
  1095.    (reservedH2 :SIGNED-LONG)
  1096.    (ioCompletion :POINTER)
  1097.    (ioResult :SIGNED-INTEGER)
  1098.    (saveA5 :SIGNED-LONG)
  1099.    (reqCode :SIGNED-INTEGER)
  1100.  
  1101.    (MailMsgRef :SIGNED-LONG)
  1102.    (refCon :SIGNED-LONG)        ;  for messages only 
  1103.    (msgType :IPMMSGTYPE)
  1104.    )
  1105.  
  1106. (defrecord MSAMEndNestedPB 
  1107.    (qLink :POINTER)
  1108.    (reservedH1 :SIGNED-LONG)
  1109.    (reservedH2 :SIGNED-LONG)
  1110.    (ioCompletion :POINTER)
  1111.    (ioResult :SIGNED-INTEGER)
  1112.    (saveA5 :SIGNED-LONG)
  1113.    (reqCode :SIGNED-INTEGER)
  1114.  
  1115.    (MailMsgRef :SIGNED-LONG)
  1116.    )
  1117.  
  1118. (defrecord MSAMSubmitPB 
  1119.    (qLink :POINTER)
  1120.    (reservedH1 :SIGNED-LONG)
  1121.    (reservedH2 :SIGNED-LONG)
  1122.    (ioCompletion :POINTER)
  1123.    (ioResult :SIGNED-INTEGER)
  1124.    (saveA5 :SIGNED-LONG)
  1125.    (reqCode :SIGNED-INTEGER)
  1126.  
  1127.    (MailMsgRef :SIGNED-LONG)
  1128.  
  1129. ; ERROR!! Record field SUBMITFLAG declared PACKED BOOLEAN !
  1130.    (submitFlag :BOOLEAN)
  1131.    (padByte :UNSIGNED-BYTE)
  1132.    (msgID :IPMMSGID)
  1133.    )
  1134.  
  1135. (defrecord MSAMPutMsgHeaderPB 
  1136.    (qLink :POINTER)
  1137.    (reservedH1 :SIGNED-LONG)
  1138.    (reservedH2 :SIGNED-LONG)
  1139.    (ioCompletion :POINTER)
  1140.    (ioResult :SIGNED-INTEGER)
  1141.    (saveA5 :SIGNED-LONG)
  1142.    (reqCode :SIGNED-INTEGER)
  1143.  
  1144.    (MailMsgRef :SIGNED-LONG)
  1145.    (replyQueue (:POINTER :OCERECIPIENT))
  1146.    (sender (:POINTER :IPMSENDER))
  1147.    (deliveryNotification :IPMNOTIFICATIONTYPE)
  1148.    (priority :IPMPRIORITY)
  1149.    )
  1150.  
  1151. (defrecord MSAMPutAttributePB 
  1152.    (qLink :POINTER)
  1153.    (reservedH1 :SIGNED-LONG)
  1154.    (reservedH2 :SIGNED-LONG)
  1155.    (ioCompletion :POINTER)
  1156.    (ioResult :SIGNED-INTEGER)
  1157.    (saveA5 :SIGNED-LONG)
  1158.    (reqCode :SIGNED-INTEGER)
  1159.  
  1160.    (MailMsgRef :SIGNED-LONG)
  1161.    (attrID :SIGNED-INTEGER)     ;  kMailIndicationsBit thru kMailSubjectBit 
  1162.    (buffer :MAILBUFFER)
  1163.    )
  1164.  
  1165. (defrecord MSAMPutRecipientPB 
  1166.    (qLink :POINTER)
  1167.    (reservedH1 :SIGNED-LONG)
  1168.    (reservedH2 :SIGNED-LONG)
  1169.    (ioCompletion :POINTER)
  1170.    (ioResult :SIGNED-INTEGER)
  1171.    (saveA5 :SIGNED-LONG)
  1172.    (reqCode :SIGNED-INTEGER)
  1173.  
  1174.    (MailMsgRef :SIGNED-LONG)
  1175.    (attrID :SIGNED-INTEGER)     ;  kMailFromBit thru kMailBccBit 
  1176.    (recipient (:POINTER :OCERECIPIENT))
  1177.    (responsible :BOOLEAN)       ;  valid for server and message msams only 
  1178.    )
  1179.  
  1180. (defrecord MSAMPutContentPB 
  1181.    (qLink :POINTER)
  1182.    (reservedH1 :SIGNED-LONG)
  1183.    (reservedH2 :SIGNED-LONG)
  1184.    (ioCompletion :POINTER)
  1185.    (ioResult :SIGNED-INTEGER)
  1186.    (saveA5 :SIGNED-LONG)
  1187.    (reqCode :SIGNED-INTEGER)
  1188.  
  1189.    (MailMsgRef :SIGNED-LONG)
  1190.    (segmentType :SIGNED-INTEGER)
  1191.  
  1192. ; ERROR!! Record field APPEND declared PACKED BOOLEAN !
  1193.    (append :BOOLEAN)
  1194.    (padByte :UNSIGNED-BYTE)
  1195.    (buffer :MAILBUFFER)
  1196.    (textScrap (:POINTER :STSCRPREC))
  1197.  
  1198. ; ERROR!! Record field STARTNEWSCRIPT declared PACKED BOOLEAN !
  1199.    (startNewScript :BOOLEAN)
  1200.    (script :SIGNED-INTEGER)     ;  valid only if startNewScript is true 
  1201.    )
  1202.  
  1203. (defrecord MSAMPutEnclosurePB 
  1204.    (qLink :POINTER)
  1205.    (reservedH1 :SIGNED-LONG)
  1206.    (reservedH2 :SIGNED-LONG)
  1207.    (ioCompletion :POINTER)
  1208.    (ioResult :SIGNED-INTEGER)
  1209.    (saveA5 :SIGNED-LONG)
  1210.    (reqCode :SIGNED-INTEGER)
  1211.  
  1212.    (MailMsgRef :SIGNED-LONG)
  1213.    (contentEnclosure :BOOLEAN)
  1214.    (padByte :BOOLEAN)
  1215.    (hfs :BOOLEAN)               ;  true => in file system, false => in memory 
  1216.    (append :BOOLEAN)
  1217.    (buffer :MAILBUFFER)         ;  Unused if hfs == true 
  1218.    (enclosure :FSSPEC)
  1219.    (addlInfo :MAILENCLOSUREINFO)
  1220.    )
  1221.  
  1222. (defrecord MSAMPutBlockPB 
  1223.    (qLink :POINTER)
  1224.    (reservedH1 :SIGNED-LONG)
  1225.    (reservedH2 :SIGNED-LONG)
  1226.    (ioCompletion :POINTER)
  1227.    (ioResult :SIGNED-INTEGER)
  1228.    (saveA5 :SIGNED-LONG)
  1229.    (reqCode :SIGNED-INTEGER)
  1230.  
  1231.    (MailMsgRef :SIGNED-LONG)
  1232.    (refCon :SIGNED-LONG)        ;  for messages only 
  1233.    (blockType :OCECREATORTYPE)
  1234.    (append :BOOLEAN)
  1235.    (buffer :MAILBUFFER)
  1236.    (mode :SIGNED-INTEGER)       ;  if blockType is kMailTunnelLtrType or kMailHopInfoType 
  1237. ;  mode is assumed to be kMailFromMark 
  1238.    (offset :SIGNED-LONG)
  1239.    )
  1240.  
  1241. ; **************************************************************************************
  1242. (defrecord MSAMCreateReportPB 
  1243.    (qLink :POINTER)
  1244.    (reservedH1 :SIGNED-LONG)
  1245.    (reservedH2 :SIGNED-LONG)
  1246.    (ioCompletion :POINTER)
  1247.    (ioResult :SIGNED-INTEGER)
  1248.    (saveA5 :SIGNED-LONG)
  1249.    (reqCode :SIGNED-INTEGER)
  1250.  
  1251.    (queueRef :SIGNED-LONG)      ;  to distinguish personal and server MSAMs 
  1252.    (MailMsgRef :SIGNED-LONG)
  1253.    (msgID :IPMMSGID)            ;  kMailLetterIDBit of letter being reported upon 
  1254.    (sender (:POINTER :OCERECIPIENT));  sender of the letter you are creating report on 
  1255.    )
  1256.  
  1257. (defrecord MSAMPutRecipientReportPB 
  1258.    (qLink :POINTER)
  1259.    (reservedH1 :SIGNED-LONG)
  1260.    (reservedH2 :SIGNED-LONG)
  1261.    (ioCompletion :POINTER)
  1262.    (ioResult :SIGNED-INTEGER)
  1263.    (saveA5 :SIGNED-LONG)
  1264.    (reqCode :SIGNED-INTEGER)
  1265.  
  1266.    (MailMsgRef :SIGNED-LONG)
  1267.    (recipientIndex :SIGNED-INTEGER);  recipient index in the original letter 
  1268.    (result :SIGNED-INTEGER)     ;  result of sending the recipient 
  1269. ;  Values for result:
  1270. ;                                             kIPMNoResponsibility
  1271. ;                                             kIPMNoInformation
  1272. ;                                             kIPMRecMaybeNotSent
  1273. ;                                             kIPMRecMaybeSent
  1274. ;                                         
  1275.    )
  1276.  
  1277. ; **************************************************************************************
  1278.  
  1279. (defrecord MailWakeupPMSAMPB 
  1280.    (qLink :POINTER)
  1281.    (reservedH1 :SIGNED-LONG)
  1282.    (reservedH2 :SIGNED-LONG)
  1283.    (ioCompletion :POINTER)
  1284.    (ioResult :SIGNED-INTEGER)
  1285.    (saveA5 :SIGNED-LONG)
  1286.    (reqCode :SIGNED-INTEGER)
  1287.  
  1288.    (pmsamCID :CREATIONID)
  1289.    (MailSlotID :SIGNED-INTEGER)
  1290.    )
  1291.  
  1292. (defrecord MailCreateMailSlotPB 
  1293.    (qLink :POINTER)
  1294.    (reservedH1 :SIGNED-LONG)
  1295.    (reservedH2 :SIGNED-LONG)
  1296.    (ioCompletion :POINTER)
  1297.    (ioResult :SIGNED-INTEGER)
  1298.    (saveA5 :SIGNED-LONG)
  1299.    (reqCode :SIGNED-INTEGER)
  1300.  
  1301.    (MailboxRef :SIGNED-LONG)
  1302.    (timeout :SIGNED-LONG)
  1303.    (pmsamCID :CREATIONID)
  1304.    (SMCA :SMCA)
  1305.    )
  1306.  
  1307. (defrecord MailModifyMailSlotPB 
  1308.    (qLink :POINTER)
  1309.    (reservedH1 :SIGNED-LONG)
  1310.    (reservedH2 :SIGNED-LONG)
  1311.    (ioCompletion :POINTER)
  1312.    (ioResult :SIGNED-INTEGER)
  1313.    (saveA5 :SIGNED-LONG)
  1314.    (reqCode :SIGNED-INTEGER)
  1315.  
  1316.    (MailboxRef :SIGNED-LONG)
  1317.    (timeout :SIGNED-LONG)
  1318.    (pmsamCID :CREATIONID)
  1319.    (SMCA :SMCA)
  1320.    )
  1321.  
  1322. ; **************************************************************************************
  1323.  
  1324. (defconstant $kPMSAMGetMSAMRecord 1286)
  1325. (defconstant $kPMSAMOpenQueues 1280)
  1326. (defconstant $kPMSAMLogError 1313)
  1327. (defconstant $kPMSAMSetStatus 1319)
  1328.  
  1329. (defconstant $kPMSAMCreateMsgSummary 1314)
  1330. (defconstant $kPMSAMPutMsgSummary 1317)
  1331. (defconstant $kPMSAMGetMsgSummary 1318)
  1332.  
  1333. (defconstant $kMailWakeupPMSAM 1287)
  1334.  
  1335. (defconstant $kSMSAMSetup 1315)
  1336. (defconstant $kSMSAMStartup 1281)
  1337. (defconstant $kSMSAMShutdown 1282)
  1338.  
  1339. (defconstant $kMSAMEnumerate 1283)
  1340. (defconstant $kMSAMDelete 1284)
  1341.  
  1342. (defconstant $kMSAMOpen 1288)
  1343. (defconstant $kMSAMOpenNested 1289)
  1344. (defconstant $kMSAMClose 1290)
  1345. (defconstant $kMSAMGetMsgHeader 1297)
  1346. (defconstant $kMSAMnMarkRecipients 1298)
  1347.  
  1348. (defconstant $kMSAMGetAttributes 1291)
  1349. (defconstant $kMSAMGetRecipients 1292)
  1350. (defconstant $kMSAMGetContent 1293)
  1351. (defconstant $kMSAMGetEnclosure 1294)
  1352. (defconstant $kMSAMEnumerateBlocks 1295)
  1353. (defconstant $kMSAMGetBlock 1296)
  1354. (defconstant $kMSAMMarkRecipients 1285)
  1355.  
  1356. (defconstant $kMSAMCreate 1300)
  1357. (defconstant $kMSAMBeginNested 1301)
  1358. (defconstant $kMSAMEndNested 1302)
  1359. (defconstant $kMSAMSubmit 1303)
  1360. (defconstant $kMSAMPutMsgHeader 1309)
  1361. (defconstant $kMSAMPutAttribute 1304)
  1362. (defconstant $kMSAMPutRecipient 1305)
  1363. (defconstant $kMSAMPutContent 1306)
  1364. (defconstant $kMSAMPutEnclosure 1307)
  1365. (defconstant $kMSAMPutBlock 1308)
  1366.  
  1367. (defconstant $kMSAMCreateReport 1311)
  1368. (defconstant $kMSAMPutRecipientReport 1312)
  1369.  
  1370. (defconstant $kMailCreateMailSlot 1323)
  1371. (defconstant $kMailModifyMailSlot 1324)
  1372.  
  1373. (defrecord MSAMParam 
  1374.    (:variant 
  1375.       ((header :MAILPARAMBLOCKHEADER))
  1376.       ((pmsamGetMSAMRecord :PMSAMGETMSAMRECORDPB))
  1377.       ((pmsamOpenQueues :PMSAMOPENQUEUESPB))
  1378.       ((pmsamSetStatus :PMSAMSETSTATUSPB))
  1379.       ((pmsamLogError :PMSAMLOGERRORPB))
  1380.       ((smsamSetup :SMSAMSETUPPB))
  1381.       ((smsamStartup :SMSAMSTARTUPPB))
  1382.       ((smsamShutdown :SMSAMSHUTDOWNPB))
  1383.       ((msamEnumerate :MSAMENUMERATEPB))
  1384.       ((msamDelete :MSAMDELETEPB))
  1385.       ((msamOpen :MSAMOPENPB))
  1386.       ((msamOpenNested :MSAMOPENNESTEDPB))
  1387.       ((msamClose :MSAMCLOSEPB))
  1388.       ((msamGetMsgHeader :MSAMGETMSGHEADERPB))
  1389.       ((msamGetAttributes :MSAMGETATTRIBUTESPB))
  1390.       ((msamGetRecipients :MSAMGETRECIPIENTSPB))
  1391.       ((msamGetContent :MSAMGETCONTENTPB))
  1392.       ((msamGetEnclosure :MSAMGETENCLOSUREPB))
  1393.       ((msamEnumerateBlocks :MSAMENUMERATEBLOCKSPB))
  1394.       ((msamGetBlock :MSAMGETBLOCKPB))
  1395.       ((msamMarkRecipients :MSAMMARKRECIPIENTSPB))
  1396.       ((msamnMarkRecipients :MSAMNMARKRECIPIENTSPB))
  1397.       ((msamCreate :MSAMCREATEPB))
  1398.       ((msamBeginNested :MSAMBEGINNESTEDPB))
  1399.       ((msamEndNested :MSAMENDNESTEDPB))
  1400.       ((msamSubmit :MSAMSUBMITPB))
  1401.       ((msamPutMsgHeader :MSAMPUTMSGHEADERPB))
  1402.       ((msamPutAttribute :MSAMPUTATTRIBUTEPB))
  1403.       ((msamPutRecipient :MSAMPUTRECIPIENTPB))
  1404.       ((msamPutContent :MSAMPUTCONTENTPB))
  1405.       ((msamPutEnclosure :MSAMPUTENCLOSUREPB))
  1406.       ((msamPutBlock :MSAMPUTBLOCKPB))
  1407.       ((msamCreateReport :MSAMCREATEREPORTPB));  Reports and Error Handling Calls 
  1408.       ((msamPutRecipientReport :MSAMPUTRECIPIENTREPORTPB))
  1409.       ((pmsamCreateMsgSummary :PMSAMCREATEMSGSUMMARYPB))
  1410.       ((pmsamPutMsgSummary :PMSAMPUTMSGSUMMARYPB))
  1411.       ((pmsamGetMsgSummary :PMSAMGETMSGSUMMARYPB))
  1412.       ((wakeupPMSAM :MAILWAKEUPPMSAMPB))
  1413.       ((createMailSlot :MAILCREATEMAILSLOTPB))
  1414.       ((modifyMailSlot :MAILMODIFYMAILSLOTPB))
  1415.       ))
  1416.  
  1417.  
  1418. (deftrap _mailcreatemailslot ((paramblock (:pointer :msamparam)))
  1419.    (:stack :signed-integer)
  1420.    (:stack-trap #xAA5E paramblock (86704384 :signed-longint)))
  1421.  
  1422. (deftrap _mailmodifymailslot ((paramblock (:pointer :msamparam)))
  1423.    (:stack :signed-integer)
  1424.    (:stack-trap #xAA5E paramblock (86769920 :signed-longint)))
  1425.  
  1426. (deftrap _maildeletemailslot ((paramblock (:pointer :msamparam)))
  1427.    (:stack :signed-integer)
  1428.    (:stack-trap #xAA5E paramblock (86835456 :signed-longint)))
  1429.  
  1430. (deftrap _mailwakeuppmsam ((paramblock (:pointer :msamparam)))
  1431.    (:stack :signed-integer)
  1432.    (:stack-trap #xAA5E paramblock (84345088 :signed-longint)))
  1433.  
  1434. ;  Personal MSAM Glue Routines 
  1435.  
  1436. (deftrap _pmsamopenqueues ((paramblock (:pointer :msamparam)))
  1437.    (:stack :signed-integer)
  1438.    (:stack-trap #xAA5E paramblock (83886080 :signed-longint)))
  1439.  
  1440. (deftrap _pmsamsetstatus ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1441.    (:stack :signed-integer)
  1442.    (:stack-trap #xAA5E paramblock asyncflag (1319 :signed-integer)))
  1443.  
  1444. (deftrap _pmsamgetmsamrecord ((paramblock (:pointer :msamparam)))
  1445.    (:stack :signed-integer)
  1446.    (:stack-trap #xAA5E paramblock (84279296 :signed-longint)))
  1447.  
  1448. ;  Server MSAM Glue Routines 
  1449.  
  1450. (deftrap _smsamstartup ((paramblock (:pointer :msamparam)))
  1451.    (:stack :signed-integer)
  1452.    (:stack-trap #xAA5E paramblock (83951616 :signed-longint)))
  1453.  
  1454. (deftrap _smsamshutdown ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1455.    (:stack :signed-integer)
  1456.    (:stack-trap #xAA5E paramblock asyncflag (1282 :signed-integer)))
  1457.  
  1458. ;  Get Interface Glue Routines 
  1459.  
  1460. (deftrap _msamenumerate ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1461.    (:stack :signed-integer)
  1462.    (:stack-trap #xAA5E paramblock asyncflag (1283 :signed-integer)))
  1463.  
  1464. (deftrap _msamdelete ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1465.    (:stack :signed-integer)
  1466.    (:stack-trap #xAA5E paramblock asyncflag (1284 :signed-integer)))
  1467.  
  1468. (deftrap _msammarkrecipients ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1469.    (:stack :signed-integer)
  1470.    (:stack-trap #xAA5E paramblock asyncflag (1285 :signed-integer)))
  1471.  
  1472. (deftrap _msamnmarkrecipients ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1473.    (:stack :signed-integer)
  1474.    (:stack-trap #xAA5E paramblock asyncflag (1298 :signed-integer)))
  1475.  
  1476.  
  1477. (deftrap _msamopen ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1478.    (:stack :signed-integer)
  1479.    (:stack-trap #xAA5E paramblock asyncflag (1288 :signed-integer)))
  1480.  
  1481. (deftrap _msamopennested ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1482.    (:stack :signed-integer)
  1483.    (:stack-trap #xAA5E paramblock asyncflag (1289 :signed-integer)))
  1484.  
  1485. (deftrap _msamclose ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1486.    (:stack :signed-integer)
  1487.    (:stack-trap #xAA5E paramblock asyncflag (1290 :signed-integer)))
  1488.  
  1489.  
  1490. (deftrap _msamgetrecipients ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1491.    (:stack :signed-integer)
  1492.    (:stack-trap #xAA5E paramblock asyncflag (1292 :signed-integer)))
  1493.  
  1494. (deftrap _msamgetattributes ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1495.    (:stack :signed-integer)
  1496.    (:stack-trap #xAA5E paramblock asyncflag (1291 :signed-integer)))
  1497.  
  1498. (deftrap _msamgetcontent ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1499.    (:stack :signed-integer)
  1500.    (:stack-trap #xAA5E paramblock asyncflag (1293 :signed-integer)))
  1501.  
  1502. (deftrap _msamgetenclosure ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1503.    (:stack :signed-integer)
  1504.    (:stack-trap #xAA5E paramblock asyncflag (1294 :signed-integer)))
  1505.  
  1506. (deftrap _msamenumerateblocks ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1507.    (:stack :signed-integer)
  1508.    (:stack-trap #xAA5E paramblock asyncflag (1295 :signed-integer)))
  1509.  
  1510. (deftrap _msamgetblock ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1511.    (:stack :signed-integer)
  1512.    (:stack-trap #xAA5E paramblock asyncflag (1296 :signed-integer)))
  1513.  
  1514. (deftrap _msamgetmsgheader ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1515.    (:stack :signed-integer)
  1516.    (:stack-trap #xAA5E paramblock asyncflag (1297 :signed-integer)))
  1517.  
  1518. ;  Put Interface Glue Routines 
  1519.  
  1520. (deftrap _msamcreate ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1521.    (:stack :signed-integer)
  1522.    (:stack-trap #xAA5E paramblock asyncflag (1300 :signed-integer)))
  1523.  
  1524. (deftrap _msambeginnested ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1525.    (:stack :signed-integer)
  1526.    (:stack-trap #xAA5E paramblock asyncflag (1301 :signed-integer)))
  1527.  
  1528. (deftrap _msamendnested ((paramblock (:pointer :msamparam)))
  1529.    (:stack :signed-integer)
  1530.    (:stack-trap #xAA5E paramblock (85327872 :signed-longint)))
  1531.  
  1532. (deftrap _msamsubmit ((paramblock (:pointer :msamparam)))
  1533.    (:stack :signed-integer)
  1534.    (:stack-trap #xAA5E paramblock (85393408 :signed-longint)));   SYNCHRONOUS ONLY 
  1535.  
  1536.  
  1537. (deftrap _msamputattribute ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1538.    (:stack :signed-integer)
  1539.    (:stack-trap #xAA5E paramblock asyncflag (1304 :signed-integer)))
  1540.  
  1541. (deftrap _msamputrecipient ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1542.    (:stack :signed-integer)
  1543.    (:stack-trap #xAA5E paramblock asyncflag (1305 :signed-integer)))
  1544.  
  1545. (deftrap _msamputcontent ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1546.    (:stack :signed-integer)
  1547.    (:stack-trap #xAA5E paramblock asyncflag (1306 :signed-integer)))
  1548.  
  1549. (deftrap _msamputenclosure ((paramblock (:pointer :msamparam)))
  1550.    (:stack :signed-integer)
  1551.    (:stack-trap #xAA5E paramblock (85655552 :signed-longint)));   SYNCHRONOUS ONLY 
  1552.  
  1553. (deftrap _msamputblock ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1554.    (:stack :signed-integer)
  1555.    (:stack-trap #xAA5E paramblock asyncflag (1308 :signed-integer)))
  1556.  
  1557. (deftrap _msamputmsgheader ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1558.    (:stack :signed-integer)
  1559.    (:stack-trap #xAA5E paramblock asyncflag (1309 :signed-integer)))
  1560.  
  1561. ;  Reports and Error Handling Glue Routines 
  1562.  
  1563. (deftrap _msamcreatereport ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1564.    (:stack :signed-integer)
  1565.    (:stack-trap #xAA5E paramblock asyncflag (1311 :signed-integer)))
  1566.  
  1567. (deftrap _msamputrecipientreport ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1568.    (:stack :signed-integer)
  1569.    (:stack-trap #xAA5E paramblock asyncflag (1312 :signed-integer)))
  1570.  
  1571. (deftrap _pmsamlogerror ((paramblock (:pointer :msamparam)))
  1572.    (:stack :signed-integer)
  1573.    (:stack-trap #xAA5E paramblock (86048768 :signed-longint)))
  1574.  
  1575. ;  MsgSummary Glue Routines 
  1576.  
  1577. (deftrap _pmsamcreatemsgsummary ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1578.    (:stack :signed-integer)
  1579.    (:stack-trap #xAA5E paramblock asyncflag (1314 :signed-integer)))
  1580.  
  1581. (deftrap _pmsamputmsgsummary ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1582.    (:stack :signed-integer)
  1583.    (:stack-trap #xAA5E paramblock asyncflag (1317 :signed-integer)))
  1584.  
  1585. (deftrap _pmsamgetmsgsummary ((paramblock (:pointer :msamparam)) (asyncflag :boolean))
  1586.    (:stack :signed-integer)
  1587.    (:stack-trap #xAA5E paramblock asyncflag (1318 :signed-integer)))
  1588.  
  1589. ; $ENDC                         ;  UsingOCEMail 
  1590.  
  1591. ; $IFC NOT UsingIncludes
  1592.  
  1593. ; $ENDC
  1594.  
  1595. (export '($KMAILMODIFYMAILSLOT $KMAILCREATEMAILSLOT $KMSAMPUTRECIPIENTREPORT
  1596.           $KMSAMCREATEREPORT $KMSAMPUTBLOCK $KMSAMPUTENCLOSURE $KMSAMPUTCONTENT
  1597.           $KMSAMPUTRECIPIENT $KMSAMPUTATTRIBUTE $KMSAMPUTMSGHEADER $KMSAMSUBMIT
  1598.           $KMSAMENDNESTED $KMSAMBEGINNESTED $KMSAMCREATE $KMSAMMARKRECIPIENTS
  1599.           $KMSAMGETBLOCK $KMSAMENUMERATEBLOCKS $KMSAMGETENCLOSURE
  1600.           $KMSAMGETCONTENT $KMSAMGETRECIPIENTS $KMSAMGETATTRIBUTES
  1601.           $KMSAMNMARKRECIPIENTS $KMSAMGETMSGHEADER $KMSAMCLOSE $KMSAMOPENNESTED
  1602.           $KMSAMOPEN $KMSAMDELETE $KMSAMENUMERATE $KSMSAMSHUTDOWN
  1603.           $KSMSAMSTARTUP $KSMSAMSETUP $KMAILWAKEUPPMSAM $KPMSAMGETMSGSUMMARY
  1604.           $KPMSAMPUTMSGSUMMARY $KPMSAMCREATEMSGSUMMARY $KPMSAMSETSTATUS
  1605.           $KPMSAMLOGERROR $KPMSAMOPENQUEUES $KPMSAMGETMSAMRECORD
  1606.           $KMAILRESOLVEDLIST $KSMSAMFWDRMNMSERVERCHANGEDMASK
  1607.           $KSMSAMFWDRFOREIGNRLISCHANGEDMASK $KSMSAMFWDRCONNECTEDTOCHANGEDMASK
  1608.           $KSMSAMFWDRHOMEINTERNETCHANGEDMASK $KSMSAMFWDREVERYTHINGCHANGEDMASK
  1609.           $KSMSAMFWDRMNMSERVERCHANGEDBIT $KSMSAMFWDRFOREIGNRLISCHANGEDBIT
  1610.           $KSMSAMFWDRCONNECTEDTOCHANGEDBIT $KSMSAMFWDRHOMEINTERNETCHANGEDBIT
  1611.           $KSMSAMGETDYNAMICFWDRPARAMS $KSMSAMNOTIFYFWDRPWDCHANGE
  1612.           $KSMSAMNOTIFYFWDRNAMECHANGE $KSMSAMNOTIFYFWDRSETUPCHANGE
  1613.           $KMAILMAXPMSAMMSGSUMMARYDATA $KADDRESSEDAS_BCC $KADDRESSEDAS_CC
  1614.           $KADDRESSEDAS_TO $KMAILMSGSUMMARYVERSION $KPMSAMSTATUSSENT
  1615.           $KPMSAMSTATUSCACHING $KPMSAMSTATUSSENDING $KPMSAMSTATUSERROR
  1616.           $KPMSAMSTATUSPENDING $KMAILTIMERFREQUENCY $KMAILTIMERTIME
  1617.           $KMAILTIMEROFF $KMAILEPPCLOCATIONCHANGED $KMAILEPPCWAKEUP
  1618.           $KMAILEPPCDELETEOUTQMSG $KMAILEPPCMSGOPENED $KMAILEPPCINQUPDATE
  1619.           $KMAILEPPCADMIN $KMAILEPPCSCHEDULE $KMAILEPPCCONTINUE
  1620.           $KMAILEPPCSENDIMMEDIATE $KMAILEPPCMSGPENDING $KMAILEPPCMAILBOXCLOSED
  1621.           $KMAILEPPCMAILBOXOPENED $KMAILEPPCSHUTDOWN $KMAILEPPCDELETESLOT
  1622.           $KMAILEPPCMODIFYSLOT $KMAILEPPCCREATESLOT $KMAILEPPCMSGVERSION
  1623.           $KOCESETUPLOCATIONMAX $KOCESETUPLOCATIONNONE $KMAILFROMMARK
  1624.           $KMAILFROMLEOB $KMAILFROMSTART $KMAILNOMODEM $KMAILMISCERROR
  1625.           $KMAILMSAMERRORCODE $KMAILELEINFORMATIONAL $KMAILELEWARNING
  1626.           $KMAILELEERROR $KMAILELECORRECTABLE $KMAILMSAMACTIONSTRINGLISTID
  1627.           $KMAILMSAMERRORSTRINGLISTID $KMAILERRORLOGENTRYVERSION
  1628.           $KMAILMOVIESEGMENTTYPE $KMAILSTYLEDTEXTSEGMENTTYPE
  1629.           $KMAILSOUNDSEGMENTTYPE $KMAILPICTSEGMENTTYPE $KMAILTEXTSEGMENTTYPE
  1630.           $KMAILINVALIDSEGMENTTYPE $KMAILMOVIESEGMENTMASK
  1631.           $KMAILSTYLEDTEXTSEGMENTMASK $KMAILSOUNDSEGMENTMASK
  1632.           $KMAILPICTSEGMENTMASK $KMAILTEXTSEGMENTMASK $KMAILMOVIESEGMENTBIT
  1633.           $KMAILSTYLEDTEXTSEGMENTBIT $KMAILSOUNDSEGMENTBIT $KMAILPICTSEGMENTBIT
  1634.           $KMAILTEXTSEGMENTBIT $KMAILENCLOSEONNONRECEIPT $KMAILNOORIGINAL
  1635.           $KMAILORIGINALINREPORTMASK $KMAILNONRECEIPTREPORTSMASK
  1636.           $KMAILRECEIPTREPORTSMASK $KMAILFORWARDEDMASK $KMAILPRIORITYMASK
  1637.           $KMAILISREPORTWITHORIGINALMASK $KMAILISREPORTMASK
  1638.           $KMAILHASCONTENTMASK $KMAILHASSIGNATUREMASK $KMAILAUTHENTICATEDMASK
  1639.           $KMAILSENTMASK $KMAILSENTBIT $KMAILAUTHENTICATEDBIT
  1640.           $KMAILHASSIGNATUREBIT $KMAILHASCONTENTBIT $KMAILISREPORTBIT
  1641.           $KMAILISREPORTWITHORIGINALBIT $KMAILPRIORITYBIT $KMAILFORWARDEDBIT
  1642.           $KMAILRECEIPTREPORTSBIT $KMAILNONRECEIPTREPORTSBIT
  1643.           $KMAILORIGINALINREPORTBIT $KMAILINTRASHMASK $KMAILDONTARCHIVEMASK
  1644.           $KMAILREADMASK $KMAILINTRASHBIT $KMAILDONTARCHIVEBIT $KMAILREADBIT
  1645.           $KMAILISLOCALMASK $KMAILISLOCALBIT $KMAILBCCMASK $KMAILCCMASK
  1646.           $KMAILTOMASK $KMAILFROMMASK $KMAILSUBJECTMASK
  1647.           $KMAILCONVERSATIONIDMASK $KMAILREPLYIDMASK $KMAILMSGFAMILYMASK
  1648.           $KMAILNESTINGLEVELMASK $KMAILSENDTIMESTAMPMASK $KMAILLETTERIDMASK
  1649.           $KMAILMSGTYPEMASK $KMAILINDICATIONSMASK $KMAILLETTERFLAGSMASK
  1650.           $KMAILBCCBIT $KMAILCCBIT $KMAILTOBIT $KMAILFROMBIT $KMAILSUBJECTBIT
  1651.           $KMAILCONVERSATIONIDBIT $KMAILREPLYIDBIT $KMAILMSGFAMILYBIT
  1652.           $KMAILNESTINGLEVELBIT $KMAILSENDTIMESTAMPBIT $KMAILLETTERIDBIT
  1653.           $KMAILMSGTYPEBIT $KMAILINDICATIONSBIT $KMAILLETTERFLAGSBIT
  1654.           $KMAILFAMILYFILE $KMAILFAMILY $KMAILREPORTTYPE $KMAILHOPINFOTYPE
  1655.           $KMAILTUNNELLTRTYPE $KMAILMSAMTYPE $KMAILIMAGEBODYTYPE
  1656.           $KMAILENCLOSUREFILETYPE $KMAILENCLOSUREDESKTOPTYPE
  1657.           $KMAILENCLOSURELISTTYPE $KMAILCONTENTTYPE $KMAILLTRHDRTYPE
  1658.           $KMAILLTRMSGTYPE $KMAILAPPLEMAILCREATOR))
  1659. (provide-interface 'OCEMail)
  1660.